home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC17.DEF < prev    next >
Encoding:
Text File  |  1995-11-22  |  3.5 KB  |  124 lines
  1.  
  2.  
  3.              ╔════════════════════════════════════════════════════╗
  4.              ║This routine clears down a Clients Time Sheet       ║
  5.              ║when you are about to invoice him for the work.     ║
  6.              ║                                                    ║
  7.              ║Enter File                                          ║
  8.              ║                                                    ║
  9.              ║                                                    ║
  10.              ║                                                    ║
  11.              ║                                                    ║
  12.              ║                                                    ║
  13.              ║                                                    ║
  14.              ╚════════════════════════════════════════════════════╝
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. ╠Enter Clients File No. - Note Balance - Press F2 to Clear                       
  90.  4File                YesN/AText          YesField      N/AYes                                $30Name                No N/AText          No 2nd Alt.   N/AYes                                0
  91.  6balance             No N/AFixed Point   No Invisible 2N/AYes                                    26flash               No N/AText          No 1st Alt.   N/AYes                                    )
  93. 10balancetext         No N/AText          No 1st Alt.   N/AYes                                
  94. 0048flash2              No N/AText          No 1st Alt.   N/AYes                                4452flash3              No N/AText          No 2nd Alt.   N/AYes                                lookup(customers,file)
  95. lookup(customers,name)
  96. retest if(name = blank,blank,lookup(customers,balance)> 0,lookup(customers,balance),0[beepThere are no entries for this customer!cursor name])
  97. if(name = blank,blank,"The Customers Balance is £")
  98. zeropad(balance,0,2)
  99. if(name = blank,blank,"Please ensure you have noted it for the invoice.")
  100. if(name = blank,blank,"Press F2 to erase the time sheet or Esc. to cancel.")
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122. Ç)('&%$#"!     
  123.    !"#$%&'()*+,-./0123456789:;<=>?@ABCCCC C C
  124. C    CCCCCBA@?>=<;:9876543210/.-,+*╡Clear Sheet         YYNY≡?